home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / dbfast20 / misc / dlltest.prg < prev    next >
Encoding:
Text File  |  1993-11-16  |  363 b   |  24 lines
  1. declare pfunction SwapIntArray returning integer ;
  2.     in dll ejemplo.dll
  3.     
  4.  
  5. sIntArray = space(10)
  6.  
  7. for nX = 1 to 5
  8.     putint(@sIntArray, toint(nX), nX)
  9. next nX
  10.  
  11. ? 'Antes de la llamada'
  12.  
  13. for nX = 1 to 5
  14.     ? getint(@sIntArray, nX)
  15. next nX
  16.  
  17. SwapIntArray(@sIntArray)
  18.  
  19. ? 'DespuΘs de la llamada'
  20. for nX = 1 to 5
  21.     ? getint(@sIntArray, nX)
  22. next nX
  23.  
  24. wait